home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / progress.tcl < prev    next >
Encoding:
Text File  |  1993-10-26  |  248 b   |  10 lines  |  [TEXT/$Tcl]
  1.  
  2. start_progress "test" 0 100 0 {format "Completed %d of 100." $index}
  3. for {set index 1} {$index < 100} {set index [expr "$index + 1"]} {
  4.     update_progress $index
  5.     for {set jndex 1} {$jndex < 50} {set jndex [expr "$jndex + 1"]} {}
  6.     }
  7. stop_progress
  8.  
  9.  
  10.